: n>u ( n -- u )
    dup 0< if -1 else 0 then
;

: u>n ( u -- n )
    drop
;

: n>f ( n -- r )
    n>u d>f
;

: f>n ( r -- n )
    f>d u>n
;

: fsquare ( r -- r*r )
    fdup f*
;

: c-string ( addr n -- addr )
    over + 1- 0 swap c!
;

: not ( n -- n )
    if false else true then
;
